home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_bas
/
pbc32.zip
/
PBC$BAS.ZIP
/
EXPLATTR.BAS
< prev
next >
Wrap
BASIC Source File
|
1996-04-10
|
2KB
|
35 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone (C) Copyright 1996 Charon Software, All Rights Reserved |
' | |
' +----------------------------------------------------------------------+
FUNCTION ExplainFAttr$ (VAttr%, AbbrevLevel%)
Result$ = ""
SELECT CASE AbbrevLevel%
CASE 1
IF VAttr% AND 1 THEN Result$ = Result$ + " R"
IF VAttr% AND 2 THEN Result$ = Result$ + " H"
IF VAttr% AND 4 THEN Result$ = Result$ + " S"
IF VAttr% AND 8 THEN Result$ = Result$ + " V"
IF VAttr% AND 16 THEN Result$ = Result$ + " D"
IF VAttr% AND 32 THEN Result$ = Result$ + " A"
CASE 2
IF VAttr% AND 1 THEN Result$ = Result$ + " R-O"
IF VAttr% AND 2 THEN Result$ = Result$ + " Hid"
IF VAttr% AND 4 THEN Result$ = Result$ + " Sys"
IF VAttr% AND 8 THEN Result$ = Result$ + " Vol"
IF VAttr% AND 16 THEN Result$ = Result$ + " Dir"
IF VAttr% AND 32 THEN Result$ = Result$ + " Arc"
CASE 3
IF VAttr% AND 1 THEN Result$ = Result$ + " Read-Only"
IF VAttr% AND 2 THEN Result$ = Result$ + " Hidden"
IF VAttr% AND 4 THEN Result$ = Result$ + " System"
IF VAttr% AND 8 THEN Result$ = Result$ + " Volume"
IF VAttr% AND 16 THEN Result$ = Result$ + " Directory"
IF VAttr% AND 32 THEN Result$ = Result$ + " Archive"
CASE ELSE: Result$ = "Invalid AbbrevLevel%"
END SELECT
ExplainFAttr$ = LTRIM$(Result$)
END FUNCTION